home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Bombardier_PC / BSCRIPTS.CST / 00114_Script_completionCityMenu < prev    next >
Text File  |  1999-04-25  |  2KB  |  76 lines
  1. -- ⌐ 1998 @radical.media, inc. & Concurrent New Media Group, L.L.C.
  2. -- Developed for Bombardier, Inc.
  3. --
  4. -- All programming developed by: 
  5. -- Robert Fabricant, Valerie Valoueva, Ossi Shaked, 
  6. -- Henry Sauvageot, Chris Howell & Chris Girand
  7. --
  8. -- Use of this code by parties other than @radical.media, inc. or their
  9. --agents 
  10. -- without the express written consent of @radical.media, inc. AND Concurrent 
  11. -- New Media Group, L.L.C. is strictly prohibited.
  12. ------------------------------------------------------
  13.  
  14.  
  15. property mySprite, neuName, rolName, selected
  16. global city, process
  17.  
  18.  
  19. on new me
  20.   set mySprite = the spriteNum of me
  21.   set neuName = the name of member the member of sprite mySprite
  22.   if neuName contains "hil" then 
  23.     set selected = 1
  24.     set city = getCityName (me)
  25.   else
  26.     set selected = 0
  27.     set rolName = neuName&"-hil"
  28.   end if
  29. end
  30.  
  31. on mouseEnter me
  32.   if not selected then
  33.     set the member of sprite mySprite = member rolName
  34.     puppetsound 3, "subroll"
  35.   end if
  36.   
  37. end
  38.  
  39. on mouseLeave me
  40.   if not selected then
  41.     set the member of sprite mysprite = member neuName
  42.   end if
  43. end
  44.  
  45. on mouseUp me
  46.   if not selected then
  47.     
  48.     if process =0 then
  49.       set city = getCityName (me)
  50.       
  51.       if city = "montreal" then
  52.         go to frame "montreal selected"
  53.       else if city = "tucson" then
  54.         go to frame "completion process"
  55.       end if
  56.       
  57.     else
  58.       set city = getCityName (me)
  59.       set frameName = city&process
  60.       go to frame frameName
  61.     end if
  62.     puppetsound 3, "mouse5"
  63.   end if
  64.   
  65. end
  66.  
  67.  
  68. on getCityName me
  69.   set save = the itemDelimiter
  70.   set the itemDelimiter = "-"
  71.   set value = item 1 of neuName
  72.   set the itemDelimiter = save
  73.   return value
  74. end
  75.  
  76.